home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
356
/
defs
/
mathlib.def
< prev
next >
Wrap
Text File
|
1992-03-11
|
1KB
|
54 lines
DEFINITION MODULE MathLib;
(* File : MathLib.def *)
(* Date: Octeber , 1986 *)
(* By: RTA *)
(* *)
(* SCCSID = "%R%.%L% %G%"; *)
(*
* Copyright (c) 1985, 1986 by
* Djavaheri Bros., Foster City, California.
* All Rights Reserved.
*
* This software is furnished under a license and may be used and copied
* only in accordance with the terms of such license and with the
* inclusion of the above copyright notice. This software or any other
* copies thereof may not be provided or otherwise made available to any
* other person. No title to and ownership of the software is herby
* transferred.
*
* The information in this software is subject to change without notice
* and should not be construed as a commitment by Djavaheri Bros. No
* warranty is implied or expressed.
*)
(* *)
(* History of Modifcation *)
(* Date Who Reasone *)
EXPORT QUALIFIED sgn, ld, int, pi, e, zero,
matherr;
VAR
zero, pi, e: REAL;
PROCEDURE matherr (VAR where, error: ARRAY OF CHAR);
PROCEDURE sgn (x: REAL): REAL;
(*
return -1.0 : x < 0.
0.0 : x = 0.
+1.0 : x > 0.
*)
PROCEDURE ld (x: REAL): REAL;
(*
dual logarithm of x base 2
x >= 0.0
*)
PROCEDURE int (x: REAL): REAL;
(*
truncate the fraction part off.
2147483647.0 < x <= 2147483647.0
*)
END MathLib.